GFA-AMIGAB LATITUDE LONGITUDE WTIME PHASE AVAIL I3 OFFGADGET TRUETHEN PRESET QUELLBITMAP SCHLIE GADGET WBENCHTOBACK STUNDE MINUTE DATUM FORMAT FORMAT1 MONTH INTERVAL DELAY LOCALTIME LATITUDE LONGITUDE WTIME BUTTONS Q_ORT L_SET T_SET CHART1 CHART2 NOT_N NOT_V T_PLAN Q_INT Q_DEL STARS CONST OBJECTS SUFFIX TRANS DAUER MODUS MYBUF INBUF MOON2 MOON1 GADAUS UPORT RASINFO QUELLBITMAP ZIELBITMAP BUFFERX BUFFERY TIEFE HOME1 HOME2 GUEST1 GUEST2 RUECK CLASS IWINDOW WINDOW USERPORT IADRESS IDCMP IDCMP1 IDCMP_TICKS WIN_FLAGS SCREEN S_TIME IN_CHART FOUND BUFFERFREE START LONGI COPYMEM MEN2U POPCHUNK ZIPWINDOW PLANE FSTERN AVAIL BUTTON BUTTONS ABOUT PLANE BGADGET RANDM DPLANE PGADGET RENDER PGINFO COLOR COLS PRESETLOC AVAIL RESOLUTION VERTI MONTH W_WIDTH RADIUS EXTEND X_DARK MAUSX MAUSY DELAY INTERVAL ANZPROP BREITE HOEHE ANZAHL LEFTEDGE TOPEDGE WINDOW BUFFERX BUFFERY HELP_ME ABOUT STUNDE MINUTE WINDOW TIEFE STUNDE MINUTE SPRACHE CONSTELLATIONS FSTARS PLANETS AVAILOBJECTS ABOUT COPYRIGHT CLOSEPROGRAM TITLESCREEN START STARCHART PLANETARIUM LOAD_ACBM SETCOL1 SETCOL2 PRESETLOC WUENNENBERG BERLIN MOSKOW NEW_YORK ARCTIC ANTARCTIC QUITO SYSTEMTIME ABOUT INITMENU1 CHECKMENU SETLOC SETTIME SHOW_LOC SETSTIME GET_NAME PRINT BUILDSCREEN SET_STARS INITMENU2 FUNCTS ADAPT TIMEFUNCTION EARTHSUNMOON PLANETS STARS REKDEK PHASE CHECKPOS SEARCHNAME MISTAKE FOUND DISPLAY BLINK CONSTELLATION SEARCHSTAR SETPLANPARAM ANIMATE READ_BMHD READ_CMAP READ_CAMG READ_ABIT STOREDATA WRITEDATA DIASHOW CREATE_GADGETS MAIN_LOOP FREE_MEM BOOLEANGADGET GET_MESSAGE BOOLEANGADGETAUS INV_PLAN_ICON PROCINV_TELE_ICON INV_TELE_ICON MAKEDOUBLEBUFFER DOUBLEBUFFERON TRANSMIT DOUBLEBUFFEROFF ABORTDOUBLEBUFFER COPYMEM ERROR MFREE TOGGLE_MODE ENDCASE AWAIT_INPUT MAKE_GADGETS PROPGADGET MESSAGEPORT PROPGADGETABFRAGE PROPGADGETAUS CMENU DECODE MODULO ZIPWINDOW LOCAL_TO_WTIME READ_PREFS READ_DATA READ_STARS READ_STRINGS READ_ABOUT GET_OBJECTS READ_PRESETLOCS SAVE_PREFS GET_SUFFIX READ_CONST ROUND CONST PLPOS lm100000 *************************** * * * PLANETARIUMSIMULATION * * Vers. 2.50 * *************************** ============================================================================== H A U P T P R O G R A M M ============================================================================== not yet buffering ============================================================================== P R O G R A M M - M O D U L E ============================================================================== planetarium.pic! load graphics to screen ----------------------------------- black white light yellow light red light blue intensif red ochre dark blue ----------------------------------- dark blue intensif red light yellow white white gray1 gray2 gray3 ----------------------------------- =================================== pre-set location F defaultlanguage=german s.o. set system-time F forces creation of whole screen buffering pointers Teleskope switched off display names on border counter for available telescope objects Defaultmode starchart Defaul Hires Lace i1&=number of stars maxdim for stars i3&=number of constellations idcmp%=8+64+512+1024+2+256 win_flags%=512+1024+2+4+1+8 Defaultpresets for planetarium mode 80 constellations maximum trim strings for bmove ---------------------------------------------------------------- picture of the moon p_{7`? HiRes Lace HiRes HiRes Lace read data from disk ----------------------------------- S:plan.prefs F s:plan.prefsF ----------------------------------- starneu.dataF lateinischer Name des Sternbildes counting stars name,brightness,rektasz.(h),rektasz.(min),deklin.(Grad),deklin.(min) Umrechnen von Stunden in Grad F9! counting constellations planet.dataF ----------------------------------- bersetzte Namen der Sternbilder einlesen const. ----------------------------------- defstrings. get (translated) strings ENDEMENUF. insert names of presets in menu ----------------------------------- about. get (translated) info endaboutFF ----------------------------------- tele JF perhaps on harddrive? assign tele: tele! tele: JF perhaps 2. disk or assigned )list tele: to ram:availobjects lformat %s! ram:availobjects F ram:availobjectsF get list of pics get rid of .pic ----------------------------------- preset.dataF* ----------------------------------- special modulo for angles ----------------------------------- ----------------------------------- ----------------------------------- ----------------------------------- ----------------------------------- set hook ----------------------------------- ----------------------------------- ------------------------------------------------------ Aufruf der Gadgetroutine Parameter : x, y, Breite, H he, ID, WindowNr, Text$ ------------------------------------------------------ ----------------------------------- closeprogram pre-set locations chart or planetarium toggle telescope-mode on/off MedRes or HiRes look for star/constellation interrupt planetarium-mode hardcopy Namen in Karte eintragen Sprache w Shareware!F ----------------------------------- Deutsch English Francais ----------------------------------- iadress% enth lt Adresse der Gadgetstruktur GADGET UP get GADGET ID close program toggle tele on/off toggle planetarium on/off closegadget ----------------------------------- . ---------------------------------------------FF "F "F ----------------------------------- " . ---------------------------------------------FF . ---------------------------------------------FF ----------------------------------------------F ----------------------------------- ----------------------------------- =================================== ----------------------------------- Shareware!F Friendware!F ----------------------------------- ------------------- ----------------------------------- secF ----------------------------------- ffffg 33333 Moon: ----------------------------------- screepositions of stars ----------------------------------- #{g## FF $g,+h FF screenpositions of planets ----------------------------------- ( Ff ----------------------------------- ------ Stundenwinkel ------ ------ transform coordinates ------ , FF beneath horizon . FF ------ Gradma ------ --------------------- ----------------------------------- white black black black black =================================== ----------------------------------- days since 1.1.1900 aries: ----------------------------------- ----------------------------------- JF! increasing moon / wanting moon =================================== make menuitems available set hook ----------------------------------- ----------------------------------- mousebutton pressed windowsizing message menu ----------------------------------- ----------------------------------- ----------------------------------- planet found star found blin F rest F constellation found blin F rest F ----------------------------------- blin F rest F ----------------------------------- -------------------------- -------- ----------------------------------- blinF restF! ----------------------------------- JF" look for picture tele: F tele: .pic! load graphic to screen ----------------------------------- ----------------------------------- ----------------------------------- ----------------------------------- ERROR !!F =================================== not to be chosen in planetarium-mode get rid of intuiticks ----------------------------------- ----------------------------------- ----------------------------------- ----------------------------------- tele: F only if starchart userportadress tele: .pic! load graphic to screen ----------------------------------- S:plan.prefsF ----------------------------------- ========================================================= ******* GADGETROUTINEN ********** --------------------------------------------------------- noch nicht dimensioniert >> Speicher reservieren << SPEICHERFEHLER !!!F Randstruktur Koordinaten Rand LEFT EDGE TOP EDGE FrontPen BackPen DrawMode COUNT Zeiger auf Randkoordinaten NextBorder Textstruktur LeftEdge f r Text immer mit CHR$(0) abschlie FrontPen BackPen DrawMode ;F LeftEdge TopEdge TextAttr text$ NextText GADGETSTRUKTUR NextGadget linke Ecke obere Ecke Breite Flags Activierung GADGIMMIDIATE RELVERIFY Typ BOOLGADGET Gadget Render Zeiger Select Render Zeiger Gadget Text Zeiger MutualExclude SpecialInfo GadgetID User defined UserData Adresse der Windowstruktur Gadget in Liste einf Gadget aktivieren ------------------------------------------------------------ Gadget aus Liste entfernen ========================================================= ************ Double Buffered Display ********** ------------------------------------------------- > FF opt%=2 ! ChipMem reservieren Keine Zielbitmap!! weiter! ------------------------------------------------- ------------------------------------------------- ** Planes besorgen ** dplane%(loop|)=AllocMem(bufferx&*buffery&/8,3) ! Chipmem @ F schneller Allocmem Fehler! weiter! ** aktives Display in Buffer kopieren ** Copper-List speichern ** neue Copper-List erzeugen ++ Reset ------------------------------------------------- ** Neue Copper-List aktivieren ------------------------------------------------- ** Alte Copper-List aktivieren ------------------------------------------------- ** altes Display in neuen Buffer ------------------------------------------------- ** altes Display und VPort-Lists herstellen ** neue VPort-Copperlisten l schen ** zweites Set Copper-Listen l schen ** BitPlanes und BitMap l schen fW:F/ ========================================================= ************** Await_Input f r Multitasking ******************* Adresse der Windowstruktur Adresse des Userports Auf msg warten Zeiger auf msg holen Werte aus Struktur lesen IDCMPFLAGS Messagecode Gadgetadressen F x-Mausposition F y-Mausposition msg in unserem Window ??? ========================================================= ! programmed by: Rolf K hr,! ** FRIENDWARE ** Am S dhang 21,! Please register D33181 W nnenberg,! Version 2.50 , ----------------------------------- End -------------------------------- LOAD ACBM :Program to load Amiga-Continues-BitMap Not enough memory! ACBMF* No ILBM file !! BMHDFF CMAPFF CAMGFF ABITFF f^$FA skip unknown chunk Fenster ge ffnet? In Fenster kopieren Bitplanes Borders ? Einlesen XF?